unit RelatorioEmissaoRecibo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UFormRelatorio, DB, DBTables, StdCtrls, QRCtrls, QuickRpt,
  ExtCtrls;

type
  TFrecibo = class(TFormRelatorio)
    QRBand2: TQRBand;
    QRLabel4: TQRLabel;
    QRBand3: TQRBand;
    TEXTO3: TQRLabel;
    TEXTO2: TQRLabel;
    TEXTO1: TQRLabel;
    QRLabel18: TQRLabel;
    QRShape1: TQRShape;
    QRShape2: TQRShape;
    TEXTO4: TQRLabel;
    TEXTO5: TQRLabel;
    TEXTO6: TQRLabel;
    TEXTO7: TQRLabel;
    TEXTO8: TQRLabel;
    TEXTO11: TQRLabel;
    TEXTO12: TQRLabel;
    TEXTO1B: TQRLabel;
    TEXTO2B: TQRLabel;
    TEXTO3B: TQRLabel;
    TEXTO4B: TQRLabel;
    TEXTO5B: TQRLabel;
    TEXTO6B: TQRLabel;
    TEXTO7B: TQRLabel;
    TEXTO8B: TQRLabel;
    TEXTO11B: TQRLabel;
    TEXTO12B: TQRLabel;
    TEXTO9: TQRLabel;
    TEXTO10: TQRLabel;
    TEXTO9B: TQRLabel;
    TEXTO10B: TQRLabel;
    QRMemo1: TQRMemo;
    QRMemo2: TQRMemo;
    procedure QRLabel8Print(sender: TObject; var Value: String);
    procedure QRLabel10Print(sender: TObject; var Value: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frecibo: TFrecibo;

implementation

{$R *.dfm}

procedure TFrecibo.QRLabel8Print(sender: TObject;
  var Value: String);
begin
  inherited;
  value := formatdatetime('"Recife, "dd" de "MMMM" de "yyyy',date);
end;

procedure TFrecibo.QRLabel10Print(sender: TObject;
  var Value: String);
begin
  inherited;
  value := formatdatetime('"Recife, "dd" de "MMMM" de "yyyy',date);
end;

end.
